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- TITLE th aoe INSTRUCTION TEST 


S/MARCH 1976 
iA, BARNES /RON PLATUKIS 


5 ERRELKFLLAARAELAELLALERAL LAL ELAS SRRAS LALA RELERELRA LE SEL ALES 


:NOTE: 


PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 
A HAROWARE SWITCH REGISTER-REFER TO OCCUMENT 


PETE TT TERE REeEerer Teer eerTtrt tr eeer er per rir ttt tr er tere ery 
;CONSOLE SWITCHES 


cwiss 


Sw13: 
:SW12: 
:SW1L: 


sSW10: 


Aue ON _ERROR 
‘sir ON _ERROR (SCOPE) 


0=00 IT 


: O=CON 
;SWO-S: SELECT TEST NUMBER:: OO=ALL TESTS 


REGISTER EQUIVSeeexneeeee 
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68 000034 000036 


es 
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te Reems Kem Dee Kee De Dae De Kee Dee Ree Dee Doe Dee De eee Doe De Det Date Doe Doe be | 


71 
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O00SS5 .+2 
23? 000556 000000 HALT 
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238 000560 O00S62 42 
239 Go0s6e 900000 Halt 

1 00866 | BOD060 HALT 
e42 000570 900572 48 
43 000572 HALT 
244 000574 000576 - +2 
e¥5 000576 900000 HALT 
Se Bee Bee i 

. §ig Booeos boebe ie 
249 000605 O00000 HALT 
250 000610 O006i2 42 

| 851 000612 O00000 - HALT 

525 ie a fiacT 

| 5 ele Bae i 
255 ono0c0 HALT 
256 000624 000626 42 
257 000526 00000 halt 

| 523 Gooese Boosao HALT 

| BD 909534 000635 48 
261 000636 000000 HALT 

| er CDDENe p50000 HALT 

«Bey Booess Goede i: 

| BBS 060646 o00000 HALT 

BBE -OGNESO oNNES2 42 
267 000652 O00000 HALT 
268 000054 OO06S5 42 
269 000556 O00000 HALT 
270 000660 000662 42 
271 O006e2 O00000 HALT 
272 O00654 OONGS5 +2 
273 00066 OO0000  - HALT 
274 000670 000672 “++ 42 
She Do0e72 OoubGd HALT 
Bee Bes ts 
She Dares DOL 7ae 40 
279 000702 O00000 HALT 
280 000704 090706 42 
281 000706 o00000 HALT 
282 000710 00712 +e 
283 000712 O00000 HALT 
284 000714 000716 42 
285 000716 o00000 HALT 
2% 90072) nore ste, 
Sea 00724 000726 i 
289 000726 000000 HALT 
290 000730 000732 _ 42 
291 000732 000000 HALT 
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si TTY INTERRUPT VECTOR##eeea42ee 
i obese iTfnT TTY INTERRUPT HANDLER 
15 BBR ES rit 0 : +; 
| 33 
318 ;SOFTWARE SWITCH REGISTER LOCATIONS#+##24% 
350 pooh 22174 
i 000174 00 DISPREG:0 
ee 600176 600000 SWREG: 0 
ast s;STARTING ADDRESS#xexeexene 
| 326 .=200 
| ge? g00200 c0S000 éLR RO 
$28 O00252 000167 000572 INP START ;PROGRAM START 
| 385 000210 .=210 
/ 331 000210. 012700 09001 MOV #1,R0 
$3e 000214 000167 Do0560 JMP = START ;NO HEADER START 
aa ;TMA-11 INTERRUPT VECTORH#xx#eHERE 
| Sy ~ pog224 2224 
| 337 00224 904342 MTINT ; TAPE INTERRUPT HANDLER 
| 338 000226 o00340 340 
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. 2600 
sCONSTANTS##4#xxeH ee 


MTS: 172520 


MTC: 17eS22 
MTBC: 155255 
MTBA: 172526 
UDES: OQ 
RCNT: 8} 
CONT: 20 - 
PSW: 177776 
SWR: 77570 
DISPLAY: 177570 
TKS: 177560 
TKB: 177562 
TPS: 177564 
TPB: 177566 
ITAMT: 10 
STALL: 40 
REGS: 172520 
VECT: 224 


me mi eo rn ee ee ne eee 


; TAPE STATUS REGISTER 
MMAN 


TAPE CO TER 
+ TBpE YTE NO INTER? . 
: TAPE BUS ADDRESS 


;UNIT ct ee 


 CHARACTE 
*PROCESSOR STATUS 
?CONSOLE SWITCH REGISTER 

j CONSOLE DISPLAY REGISTER 


T SUFF 
Le OF ITERAT fot iS 
EADY DELAY MULTIPLIER 
hs S ADDRESS 
VECTOR ADDRESS 
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ae 


sPLAGS AND COUNTERS#xeeexecee 


e 
. ee 
OOO OOOOH OOOOOOOOHOOVOKO000000 


;TEST ENTRY TABLEx#xxxxxtex 


a ae a en 
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498 001000 .=1000 
40 j PERK EKERAA ELLA ERE LALLA FEEL ER 
198 ; PROGRAM START AND HOUSEKEEPING 
uty eEPeTerTererTertrrerer tt TTT 
| 413 po1900 900249 _ START: NOP 
413 001002 O12e777 O00340 177606 MOV #340, IPSW :SET PRIORITY 
414 O01010 O12706 9o00500 MOV & :SET STACK POINTER 
4i5 001014 004767 004342 ISR PC, SUSWR SEE IF NO HARDWARE SWITCH REG. 
416 001020 ? TST RO ‘SEE IF SKIP HEADER 
417 O0102e2 0011 “ SNE ST4 :IF SO: BR 
418 001024 012704 op6022 MOV #MSG1,R4 
419 001030 004767 003574 “JSR PC. TTOUT :PRINT HEADER 
420 001034 012704 006461 MOV #MSG22, R4 
421 O01040 004767 003564 JSR TOUT :REQUEST UNIBUS ADDRESS 
422 OO01044 016703 177570 MOV éS,R3 
| 423 001050 004767 003752 JSR oeTP :PRINT CURRENT ADDRESS 
' 434 901054 012705 900640 MOV WREGS, RS GET ADDRESS OF ENTRY 
425 001060 ococos MOY Ri SET SIZ 
426 001064 Ole702 172700 MOV #172700, R2 ;SET UPPER LIMIT 
457 001070 012703 172300 MOV #172300, R3 :SET LOWER LIMIT 
| 428 001074 7? 003272 JSR :GO GET RESPONSE 
429 001100 012704 006503 MOV bcos RY 
/ 430 O01104 7 003520 JSR TTOUT ;REQUEST VECTOR 
431 001110 016703 177526 MOV VECT.R3 
| 432 001114 004767 003706 JSR PC, ocTP sPRINT CURRENT VECTOR 
433 001120 012705 o00542 MOV #VECT,RS *GET ADDRESS OF ENTRY 
434 901124 012701 900003 MOV #3,R1 :SET SIZ 
/ 435 001130 Oi2702 o00250 MOV #250, Re :SET UPPER LIMIT 
/ 436 001134 ooo! MOY #150;R3 -SET LO IMI 
; 437 001140 OO 0032 JSR PC. TT ;G0_GET RESPONSE 
' 438 901144 016700 177472 MOV VECT, RO GET VECTOR 
| 439 001150 004342 MOV #MTINT.(RO)+ § :SET INTERRUPT ADDRESS IN VECTOR 
, 440 001154 000340 MOV #340, (RO) :SET INTERRUPT PRIORITY 
/ 441 001160 012701 op0004 MOV :SET NUMBER 0 
442 001164 O12702 OO0600 | MOV #TS, Re *GET FIRST ADDRESS OF TABLE 
443 001170 016700 177444 MOV REGS. RO GET FIRST REGISTER 
444 001174 010022 STOA: MOV RO, (R2)+ *LOAD TABLE 
445 001176 062700 ojD00e2 ADD #2,R0 *BUMP ADDRESS 
| 446 001202 005301 DEC RI SEE IF DONE 
/ 447 O01204 001373 BNE STOA IF NOT: BE 
448 001206 012777 O10000 177366 MOV #10000, aMTC ‘POWER CLEAR 
449 001214 012704 O06064 STO: MOV #MSG2. RY 
450 O0le20 004767 003404 JSR TOUT ;REQUEST UNIT NUMBER 
451 001224 O05067 177360 CLR UDES PRESET UNIT O 
452 001230 016703 177354 MOV UDES,R3 ‘GET UNIT NUMBER 
453 001234 0003 SWAB OséR3 : POSITION 
454 001236 042703 BIC #177770,R3 : MASK 
| 55 O01e42 004767 003560 JSR PC, OCTP *PRINT CURRENT VALUE 
456 001246 012705 OOD6S6 MOV #TEMP3, RS *SET SAVE LOCATION 
457 O01eS2 012701 O00001 MOV WRI : 2E OF ENT 
458 001256 012702 000007 MOV 7'Re ‘SET UPPER LIMIT 
459 O0l262 012703 000000 MOV 3 :SET LOWER T 
460 001266 004767 9003100 ISR PC'TTR GO GET UNIT NUMBER 
461 001272 000367: 177360 SWAB Ss TEMP3 *POSITION UNIT NUMBER 





- er ne eee 
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. 
68 001276 042767 003400 177304 Bic #3400, UDES *CLEAR OLD NUMBER 
1304 056767 177346 177276 BIS TEMP3,UDES ‘LOAD NEW NUMBER 
#64 ae 016777 177272 177262 Moy spe :SELECT UNIT 
> ' % Sy ae 
dee BBt BO3bPS 000176 177270 ERE WREG, SWR Y 
| 462 001330 001002 BNE ST] 1% 
| 468 001332 904767 004156 JSR PC, CNTLU :GO ASK FOR SWR SETTINGS 
4639 001338 032777 O00100 177234 ST1: BIT #100, aMTS -SEE IF SELECT REMOTE 
| 4G 601344 001007 BNE S73 :IF SO: BR 
471 001346 0095300 EC 
472 001350 001372 BNE STl sDELAY FOR SELECT REMOTE 
| 423 001352 012704 oog44O MOV #MSG21,R4 
474 001358 004767 003246 ISR PC. TTOUT -PRINT NOT AVAILABLE 
| 475 01362 900719 BRST ?REDO REQUEST 
476 901354 O0S2767 O60000 177216 ST3: BIS #60000, UDES “SET TO 800 BPI 9 CHAN 
| 47? 901372 O00240 ST4: NOP 
| 478 001374 012777 010000 177200 MOV #10000, aMTC :POWER CLEAR 
| 479 001492 Ole702 OO0646 MOV #T0B. Re :GET START OF TABLE 
| 480 001408 013700 900027 MOV —- #27, RO ;SET SIZE OF TABLE 
/ 481 001412 ofso22 STS: CLR (Rej+ *CLEAR TABLE 
| 482 001414 005300 DEC RO 
' 483 001416 001375 BNE STS D0 ALL 
| 484 001420 905067 177250 CLR PCNTR :CLEAR PASS COUNTER 





| 
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TSO3 

DITSFC.SR 
= 
act 
489 pore 
483 0014 
490 O01%3e 
491 O01436 
= Pla 
“ 001444 
4&4 OO1L446 
SB 
487 001470 
498 001476 
43g peng 
500 1504 
$01 001510 
ens 001514 
eos bolese 
50S 001530 
eee poles 
508 001540 
503 001544 
519 01546 
511 001552 
Sie OO1SS6 
S13 O01S60 
ee Bp 
316 Boie4 
517 O01S76 
5i@ 001600 
5139 001602 
S20 001604 
S21 O0l6l2 
S2e O01616 
S23 pores 
S24 001 
Ses 901634 
See O01640 
S27 OO1E44 
S28 001650 
S23 001654 
530 O0l&62 
531 ies 
532 1656 
S23 001¢7e 
S34 OO1E76 
ex 


ee me 


terete) 
SIG 


engparoRess 
sees olotetet 
= 


e 


oop 
~}-4 
FU 
Bme 


8 SESH 
E62 fier Zs 


003550 
176776 
177522 
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177070 


177102 


177052 


177042 
177034 


176736 


MACYS1 2&7( 732) 


TScoo: 


TSCO1: 


TSCDe: 


TSCC3: 


sTsc°: 


TEND: 


TENDX: 
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(EST SCHEDULARS#sseaeeee 


STSCD 
eTSTTSL,LTAOD 
84 LTADD 
LTADD, ITRLP 
82, ITRLP 

aL tAnD 


RO 

RO 

#TSTTBL, LTADD 
ahs 

LTADD 

#2, 1T 


ITRLP 
2, ITRLP 
TStD1 


PC, CKSWR 
PCATR 
TSCD 


ee te oe ae a ew: | 


;CLEAR SINGLE TEST FLAG 
;GET SWITCH REGISTER 

sMASK TEST SELECT 

;SEE IF BENGLE TEST SELECT 


. 0: 

:;GET TABLE START 

;SET ITERATION ADDRESS 

sSEE IF END OF CYCLE 

sIF NOT: 

3;GO0_ TO END ROUTINE 
HEADER FLAG 


$ FL 
>GET TEST ADDRESS 
3;G0 TO TEST 

sSEE IF HALT ON TEST 
sIF NOT: BR 


; TEST FOR ?#G 
;SEE IF SINGLE TEST 
;IF NOT: BR 


GET TEST NUMBER 
‘SEE IF ALL TESTS 

SET SINGLE TEST FLAG 

iSEE F EXCEEDED TEST NUMBER 


:POSITION NUMSER 
;GET START OF TABLE 
;SET POINTER 


;SET ITERATION ADDRESS 
360 DO TEST 


;PRINT END OF PASS 


s;PRINT PASS NUMBER 
;SEE IF HALT ON PASS 
;IF NOT: BR 


;TEST FOR tG 
;BUMP PASS COUNTER 
;RESTART 
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338 j PERS ERESEEL ERASE EREREFAREES EELS DEERE 
;TEST 1: WRITE FROM COD BYTE 


THIS TEST WILL WRITE A SIX (6) BYTE RECORD 


540 “FROM AN ODD BYTE STARTING ADDRESS. THE RECORD 
S41 ‘WILL BE READ BACK INTO AN EVEN STARTING ADDRESS 
54 :T0 TEST FOR PROPER TRANSFER. 
Ay BR Rs, 4 
S45 001702 ooc240 LTl: NOP 
Eue 001704 012767 OO&SIS 176746 MOV SLTIMSG,EMAODR ;SET HEADER 
547 001712 Ol2e702 006772 MOV #WDATA, Re ‘GET BUFFER STA 
548 001716 lle7e2 000377 MOVB #377, (Re)+ : INSERT BACKRCUND DATA 
E49 001722 905090 CLR 
S50 001724 110022 LTIB: MOVB RO,(Re)+ 
£51 001726 O0S200 INC RO ;LOAD WRITE BUFFER (0,1,2,3,4,5) 
S52 001730 po000& CMP #6, RO 
S53 001734 001373 SNE LTiB 
554 001736 004767 OD104 ISR PC, RUND GO REWIND 
&65 001742 012767 176734 MOV #4’ FUN :SET WRITE FUNCTION CODE 
| $56 001750 O1e767 006773 176720 MOV  aDATA+1,BADR ;SET DATA POINTER 
557 001756 ol ? 177772 176714 V $-5 BYTES :pET Size OF RECORD 
' §58 001764 012767 70 MOV #MSG17,ERRAD  ;SET WRITE ERROR CODE 
| §59 001772 OO47E7 001262 JSR PC, EXEC :GO EXECUTE COMMAND 
| 860 001776 oOo0240 LT!C: NOP 
| S61 004767 001504 JSR PC, ERCHK :G0 CHECK FOR STATUS ERROR 
| §62 002004 012767 177777 176670 MOV s-1 SCNT 
' §63 oo2012 767 001156 JSR PC. BKSP :G0 BACKSPACE ONE RECORD 
S64 02016 007074 . #ROATA, an 
SES O0e022 012700 O00010 MOV #10,R0 
~=«SEB So20e% Ol2722 177777 LT1D: MOV #-1' (R2)+ ;BACKGROUND READ BUFFER 
«+567 005300 DEC 
| §68 002034 001374 BNE LTID :D0 ALL 
| 569 O02036 012767 op0D02 176640 MOV #2, FUN ?SET READ FUNCTION CODE 
/  §70 OO2044 012767 007074 176624 MOV #ROATA, BADR >SET READ POINTER 
; §7i opese 12767 177772 0 MOV #-6 BYTES ier SIZE OF RECORD 
| §72 12767 O063S2 176574 MOV ie T READ ERROR CODE 
_ §73 OO2D66 004767 O01166 JSR PC, EXEC $85 DO READ 
| 6&7 goe07e bogesg LTE: NOP 
am 7 001410 JSR PC, ERCHK GO CHECK ERRORS 
| 6576 O02100 012701 006773 MOV #WDATA+I RI SET EXPT DATA POINTER 
/ §77 002104 Ole702 007074 MOV 8RDATA, Re *SET RCVD DATA POINTER 
578 002110 012700 OO0006 MOV #6, RO :SET SIZE OF RECORD 
67S 002114 004767 OO16S6 JSR PC’ DCHK G0 CHECK 
£80 O0cl20 004767 G02146 JSR PC ITER GO SEE IF ITERATIONS 
£81 O02le4 000167 177372 IMP 7SCD *RETURN TO SCHEDULAR 





ee a me A EE 
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! 
{ ees sHREFLERSERESLELESESRELES 
583 TEST 2: READ INTO ODD BYT7 
| 58s ITHIS TEST WILL WRITE A SIX (6) BYTE RECORD 
| 586 sFROM AN EVEN BYTE STARTING ADDRESS. THE RECORD 5 
| 587 WILL BE READ BACK IN NTO AN ODD STARTING ADDRESS 
| 588 ‘70 TEST FOR PROPER TRANSFER. 
j Bay S eeencunacoonnceucennnes 
| 531 00213 9 LT2: NOP 
582 002132 Ole767 OOESS3S 176520 MOV SLT2MSG,EMADDR ;SET HEADER POINTER 
593 002140 Ole702 006772 MOV SHDATA, Re :POINT TO START OF WRITE BUFFER 
So4 o02144 CLR RO 
| §85 os146 110022 L728: MOVB RO, (Ra)+ ;LOAD DATA PATTERN 
|  §96 O02150 O05°00 INC O : BUMP PA 
| §87 oo215e — 900006 CMP #6, RO : SEE F DORE 
| §88 O02156 001373 BNE LT28 -IF NOT: BR 
| §93 O52i69 767 000624 JSR PC, RWND GO REWIND TO BOT 
( 600 164 012767 900004 176512 MOV #4! FUN :SET WRITE OP-CODE 
| 601 O02172 Ole767 006772 176476 MOV sWDATA, BADR *SET STARTING ADDRESS 
| &0e poee00 12767 irre 176472 MOV #-6 BYTES ;SET SIZE OF RECOR 
, 693 767 OO01046 PC, EXEC G0 EXECUTE CO 
£04 OO0e2l2 LT2c: NOP 
/ €§05 O02214 012767 006335 176440 MOV #4SG17,ERRAD §;SET ERROR CODE 
605 O02222 004767 001262 ISR PC ERCHK :G0 CHECK FOR STATUS ERROR 
£07 O02226 012767 177777 176446 MOV 8-1 .SC 
608 002234 004767 000734 JSR Pc bese GO BACKSPACE ONE RECORD 
609 002240 012702 007074 MOV sROATA, R2 :GET READ BUFFER POINTER 
610 902544 612700 o00010 MOV #10,R0 SET SIZE 
611 O0e250 O1 177777 LT2D: MOV 8-1) (R2)+ *BACKGROUND POINTER 
ble 002254 DEC RO SEE IF DONE 
613 doces6 1374 SNE Ted : IF BR 
614 12767 OO0002 176416 MOV :SET NpEaD FUNCTION CODE 
615 O02266 012767 007075 176402 MOV tROATAS1 BADR :SET START OF READ BUFFER 
616 O02e74 012767 177772 176376 MOV BYTES >SET SIZE OF RECORD 
at 767 000752 = JSR PC, oer -GO EXECUTE COMMAND 
619 002310 012767 O063S2 176344 MOV #MSG18,ERRAD §_;SET ERROR CODE 
620 002316 004767 001166 JSR PC, ERCHK *GO CHECK FOR PrATUS ERROR 
621 O0ese¢2 012701 O06 MOV TA sPOINT 10 Exp T DAT 
bee 002326 012702 007075 MOV #RDATAS1, Re ;POINT 
623 002332 01 000006 MOV 86, RO T 
624 002336 004767 001434 JSR PC’ DCHK 60 CHECK DATA 
£25 002242 004767 001724 JSR PC’ ITER GO SEE IF ITERATION 
626 O02346 000167 177150 IMP é *RETURN TO SCHEDULAR 


g 
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628 5 RERFREREELEARERALLAALFAE 
533 jTEST 3: OPI TOO LONG 
§3 THT TEST WIL APPROXIMATELY TEN POINT FIVE ‘10.5) 
iFEE oF TAPE by WRTTING rate IRG, 8 KSPACING 
| 833 AND R Shear ING G THE SEGUE TIMES. TAFE 
634 WILL REWIND 60! 0} Tine THE 
635 [OPI TIMER SH OULD SHE TpOUN tHE UNIT BEFORE 
636 “REACHING THE FIRST RECORD ON TAPE. 
Pat erererertririititt titi et 
633 002352 goge4g LT3: NOP 
640 0020354 012767 OOGEDE 176276 MOV SLT3MSG,EMADDR ;SET TEST HEADER 
641 002362 012700 000040 MOV #40, RO *SET NUMBER OF WRITE IRG/BACKSPACE 
642 0020366 004767 O00416 ISR PC, RWND GO REWIND UNIT 
643 002372 012767 O00014 176304 LT3A: MOV 814. FUN :SET WRITE IRG FUNCTION CODE 
644 000400 012767 006772 176270 MOV TA, BADR : SET ADDRESS 
| §45 OO2406 O12767 177760 176264 MOV 8-20, BYTES :SET SIZE OF REC 
§ poeu14 Soy7b7 honed JSR PC, EXEC :GO EXECUTE C 
64 12767 006235 176234 LT38: MoV 8MSG17,ERRAD  ;SET ERROR CODE 
| 648 6 004767 1 JSR PC. ERCHK *GO CHECK FOR STATUS ERROR 
| 649 SS Biever 777? 176242 MOY acl ScNT 
002440 004767 000530 JSR PC, BKSP :GO BACKSPACE ONE RECORD 
| bes oSaue 0013S BFF LT3A SEE IF OBR ~ 
 §53 ooe4s0 LT3IT: NOP . 
| 654 OOe452 004767 000332 JSR PC, RWND GO REWIND 
' §55 O02456 012767 000230 176152 MOV #230, STALL :SET OPI ST 
 §56 902464 012767 007074 176204 MOV #RDATA, BADR :SET START OF READ BUFFER 
| §57 006472 012767 177760 176200 MOV $-20, BYTES >SET SIZE OF REC 
658 O02S00 012767 O00002 176176 MOV #2.F ;SET READ FUNCTION CODE 
659 002506 012767 O06366 176146 MOV #MSG19,ERRAD § ;SET ERROR CODE 
660 002514 004767 000540 JSR PC, EXEC :GO EXECUTE COMMAND 
661 002520 LT3C: NOP 
| 82 O0eS5e2 012767 OD0040 176106 MOV #40, STALL sRESET NORMAL STALL 
| 663 002530 pistes 0004900 176042 BIT #400, aNTS iSEE “if BTE IS SET 
Ef ES GUT oom amie =| Yon buy rus 
£58 Giese Boies rye ne OBR ERPT sat INF ERROR 
66 7 176112 CLR SPFLG 
668 002556 012767 O00002 176050 LT3x: MOV #2, ITAMT 3 to ty (2) ITERATIONS 
669 002564 004767 001502 JSR PC’ ITER GO SEE IF Tf ERATION 
670 012767 OO00010 176036 MOV #16. ITAMT ‘RESET ITERATIONS 
b7i 002576 000167 176720 IMP TSche RETURN TO SCHEDULAR 





oO7O——————————— ee 



















ieee a pate INSTRUCTION TEST MACYLL 27(732) O3-NOV-76 08:48 PAGE 19 
4 L.SRL 


, 


87 j PERF RERESELES ESE SEL ER ESE 
2 :TEST 4: OPI TOO SHORT 
p28 : THIS apESt MILL ERASE BPPROXINATELY FOUR (4) FEET 
B56 ?ONE (1) Bec ANS Ae oat ine ears SEQUENCE 
$73 :12(10) TIMES. TAPE WILL REWIND AND BE READ 
£80 *FORWARD. THE FIRST RECORD ON TAPE SHOULD BE 
681 !REACHED BEFORE OPI T 
Pas 5 RHARELHLLLLELLELELLAL ELE 
584 o02602 LT4: NOP 
685 002604 012767 006635 176046 MOV SLTYMSG,EMADDR ;SET HEADER 
| 686 O0e6l2 o04767 000172 JSR PC, RWND GO REWI 
| 882 o6e618 b12709 990014 | MOV #14,R0 iSET OF WRITE IRG/BACKSPACES 
| 688 12767 14 176054 LTYA: MoV 814° FUN :SET WRITE IRG FUNCTION CODE 
| $89 Seb30 012767 908772 176040 MOV #WOATA, BADR :SET START OF WRITE BUFFER 
|; 899 612767 1 176034 MOV $-20, BYTES SET SI 
| 691 0028644 012767 906335 176010 MOV MSGI7,ERRAD § ;SET ERROR CODE 
| §92 002652 004767 O00402 ISR PC, EXEC °GO EXECUTE COMMAND 
| €§93 002656 004767 900626 LT4B8: JSR PC’ERS :GO CHECK FOR STATUS ERROR 
ess bocbbe 12767 177777 176012 MOV 8-1, SCNT 
| §985 O026 000300 JSR C, BK :GO BACKSPACE ONE RECORD 
| §96 002674 DEC RO :SEE IF DONE ALL SEQUENCES 
| §87 002676 001351 BNE LTYA IF NOT: BR 
«B88 posses LTHIT: NOP 
| 699 O02702 004767 oDD102 JSR PC; RWND ; REWIND 
| 700 002706 ol 7 000209 175722 MOV #200, STALL :SET OPI STALL 
701 902714 612767 007074 175754 MOV #ROATA, BADR :SET START OF READ BUFFER 
| o3e boe7e2 12767 177760 175750 MOV #-20, BYTES :SET SIZE OF RECORD 
12767 hanobe 175746 MOV #2, FUN SET FUNCTION CODE 
/ 704% 002736 012767 OO6413 175716 MOV 8MSG20,ERRAD § ;SET ERROR CODE 
705 002744 004767 000310 JSR PC,E *GO EXECUTE COMMAND 
706 002750 004767 000534 LT4#¢c: JSR PC; ERCHK :GO CHECK FOR STATUS ERRORS 
707 002754 o00240 NOP 
708 002756 012767 oO0040 175652 MOV #40, STALL sRESET NORMAL STALL 
708 902764 012767 O00002 175642 MOV 82, {TANT *SET TO TWO (2) ITERATIONS 
710 002772 004767 001274 JSR PC’ ITER GO SEE IF ITERATIONS 
711 00¢776 012767 OO0010 175630 MOV 810, ITAMT ‘RESET ITERATIONS 
7l—2 903004 000167 176512 MP sche "RETURN TO SCHEDULAR 
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175562 
175552 


175544 


175526 
175516 
175526 


MACY &7(722) 


RWND: 


1$: 
RWND1: 


RWNDX: 


RWNDXX: 


BKSP: 


BKSP1: 
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sREWIND SUBROUTINE ##eeaxeeee 


RTS 


UDES, INTC sSELECT UNIT 
840, IMTS :SEE IF AT BOT 
WNOXX ‘7 : BR 

#17, aMTC ‘START REWIND 

ante 

AS ants ott foR 

RWAD 1 : 

#40, IMTS ;SEE IF BOT SET 

RWNOXX :IF SO: BR 

#20000, dSWR -SEE IF PRINT ERROR 

RWNDX IF NOT: BR 

EMADDR, R4 

PC, TTouT :PRINT HEADER 

PC TTOUT ;PRINT REWIND ERROR 
#MSGS.R 

PC, TTOUT sPRINT MTS TAG 

ants, R3 

PC, OCTPE ;PRINT MTS 

#MSG5, RY 

PC, TTOUT sPRINT MTC TAG 

antc RB 

PC, OCTPE ;PRINT MTC 

aSWR :SEE IF HALT ON ERROR 

RWNDXX IF NOT: BR 

PC, CKSWR sTEST FOR 1G 

PC : RETURN 


;BACKSPACE SUBROUTINE ##exeexHEH 


UDES, aMTC ;SELECT UNIT 
SCNT, aMTBC SET NUMBE 

#13, OMTC :START SPACE REVERSE 
#1, QNTS 4 

BKSP1 ;AWAIT TUR 

#1, SPFLG ‘SET SPACE FLAG 
#4SG9, ERRAD 

PC, ERCHK GO CHECK FOR ERROR 
SPFLG ‘CLEAR SPACE FLAG 

PC s RETURN 








R OF RECORDS TO SPACE 
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obs ;COMMAND EXECUTE SUBROUTINE#ke#e#eee* 

¢ 

764 003260 o00240 EXEC: NOP 

765 003262 O0500¢ CLR RS 

766 O03264 O3e777 O00200 175310 EXECO: BIT #200, 2MTC ;SEE_IF CUR 

767 003272 001021 BNE EXEC? BR 

768 003274 905305 DEC RS ‘See IF TIMED OUT 

769 003276 001372 BNE EXECO : BR 

770 003300 005767 175410 TST HDRFL CEE IF DONE HEADER 

77i 003304 901004 BNE EXECI IF SO: BR 

772 003306 016704 175346 MOV EMADDR, R4 

773 003312 504767 001312 ISR PC, TTOUT sELSE PRINT HEADER 

774 003316 012704 O06242 EXECl: MOV #MSG10,R4 

775 003322 004767 001302 JSR PC. TTOUT :PRINT NOT READY ERROR 

76 003326 005777 175266 TST asuR ;SEE. JF HALT ON ERROR 

100001 BPL EXEC2 LIF tidT: BR 

778 003334 HALT 

a3 0033 767 002100 EXEC2: ISR PC, CKSWR TEST FOR 1G 

oes posses gier77 tvesen tpeSse MOV BRORTSNTGA.«=Ss«S SET“ BUS CFEHORY ADDRESS 

te i 

783 003360 016777 175314 175216 MOV BYTES aNTBC SET BYTE COUN 

784 003366 016701 175312 MOV FUN.R T FUNCTION 

785 002372 052701 O00101 BIS #101,R1 SET IN GO Bt AND INTERRUPT ENABLE 

78 003376 050177 175200 BIS Rl, aMTC ‘LOAD COMMAND+GO+IE 

787 003402 000240 NOP 

788 O03404 005077 175206 CLR aps ALLOW INTERRUPTS 

789 903410 016767 175222 175234 MOV STALL, TEMP! *SET READY STALL 

730 903416 005001 CLR Ri 

791 003420 005301 EXEC3: DEC Ri 

792 O03422 001376 EXEC3 sAWAIT INTERRUPT 

793 003424 005367 175222 DEC TEMP] 

734 003430 001373 EXEC3 

795 003432 032777 O20000 175160 BIT #20000, aSWR ;SEE IF PRINT ERROR 

736 003440 001013 BNE EXECX R 

737 O0s442 005767 175246 TST HDRFL SEE IF DONE HEADER 

798 001004 BNE EXECY IF SO: BR 

799 003450 016704 175204 MOV EMADDR, R4 

800 O03454 004767 001150 JSR PC TTOUT ;PRINT HEADER 

801 bos460 012704 006257 EXEC4: MOV #M5G11,R4 

B02 004767 001140 JSR PC. TTOUT ;PRINT NO INTERRUPT MESSAGE 

B03 70 005777 175124 EXECX: TST aSWR *SEE IF HALT ON ERROR 
74 100001 BPL EXECXX IF NOT: BR 

e095 003476 oo0000 HALT 

806 003500 004767 001736 EXECKX: JSR PC, CKSWR TEST FOR ¢G 

807 003504 o00240 NOP 

808 000207 RTS PC RETURN TO CALLER 
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;STATUS ERROR CHECK SUBROUTINE ###exexx4% 


003510 005777 175066 _ ERCHK: TST aMTC ;SEE IF ANY ERROR BITS 
003514 100002 ss BPL ERCHK1 ‘] 
003£16 000167 ooco44 IMP ERPT ‘ELSE PRINT ERROR 
003522 005777 175056 ERCHK1: TST aMTBC ; SEE IF BYTE COUNT IS ZERO P 
O035e5 901402 BEQ ERCHK2 - IF 8R 
3630 600167 000032 IMP ERPT ELSE PRINT ERROR 
003534 016703 175140 ERCHK2: MoV BYTES,R3 
Ooss Sip 175130 AD BADR. R3 ;SET EXPT BUS ADDRESS 
17511 TS SPFLG -SEE IF SPA BCE OPERATION 
0035S2 001401 BEQ ERCHK3 IF NOT: 
003554 000207 - - RTS PC 
Oo 3556 175024 ERCHK3: CMP R3, IMTBA : SEE IF EXPT=RCVD 
51801 : BNE ERPT ‘IF NOT: BR 
003564 000207 RTS ELSE EXIT 
003585 000240 ERPT: NOP 
003570 032777 Oe0000 175022 BIT — ;SEE IF SHOULD PRINT 
003576 001067 BNE IF NOT: BR 
003600 7? 175110 TST HOREL *SEE IF DONE HEADER 
003604 O01006 BNE ERP ‘IF SO: BR 
003606 016704 A7S04e MOV ERADOR 
| 003612 004767 001012 SR PoatTour sELSE_PRINT HEADER 
Bosees yeaa 1206 ERPT1: MOV ERRAD, RY . 
| 003626 004767 000776 JSR PC, TTOUT ;PRINT ERROR CODE 
fhe Bpa7ee JSR PC FTOUT sPRINT MTS TAG 
003642 017703 174732 MOV ants, R3 
004767 001144 JSR PC, OC TPE ;PRINT MTS 
003652 b1e704 006170 MOV #MSG6,R4 
003656 767 000746 JSR PC, TTOUT sPRINT MTC TAG 
003662 017703 174714 MOV t 
003666 004767 001124 JSR PC, OCTPE ;PRINT MTC 
003672 012704 006177 MOV #MSG7,R4 
003676 004767 000726 JSR Pc. TTOUT sPRINT BYTE COUNT -TAG 
003702 017703 174676 MOV aMtBC, R3 
003706 004767 001114 JSR Pc, oct sPRINT BYTE COUNT 
| poavie OoIO? 1 at iF NOT: BR 
0037, sea gn6207 MOV #MSG8,R4 ' 
003724 004767 00 JSR PC. TTOUT sPRINT BUS ADDRESS TAG 
003730 017703 174652 MOV aNTBA,R3 
pos b04767 001066 JSR PC, octP sPRINT CURRENT ADDRESS 
16703 174 MOV BYTES, R3 
003744 O05403 NEG R3 
003746 066703 174724 ADD BADR, R3 
003752 004767 001050 JSR PC, OCTP ;PRINT EXPT ADDRESS 
003756 005777 174636 ERPTX: TST ISUR *SEE IF HALT ON ERROR 
003762 100001 BPL ERPTXX ‘IF NOT: BR 
003764 00000 HALT 
0037 767 001450 ERPTXX: JSR PC, CKSWR sTEST FOR ¢G 
Bn 3798 167 O002%0 IMP SCOPE *GO SEE IF SCOPE ON ERROR 





ne es ee ee 
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gee s;DATA CHECK SUBROUTINE ##xxxeenee 
866 wake pove40 sf DCHK: NOP 
867 oo4000" 174704 CLR CRCNT CLEAR COUNTER 
poaeoe DCHKO: CMPB (RI), (R2) E IF EXPT DATA=RCVD DATA 
BNE DCHKE NOT: BR 
004010 174674 DCHK1: ING CRCNT } a CHARACTER COUNTER 
871 oowo14 CHP (RL)+, (R2)+ oa tne 
B55 ata 001371 BNE DCHKO IF NOT: BR 
874 004022 000167 oD0150 JMP DCHKX *ELSE GO TO EXIT ROUTINE 
875 o04026 40 OCHKE: NOP 
876 004030 012767 OO0001 174654 MOV #1, DERFL ;SET ERROR FLAG 
877 004036 020000 174554 BIT #20000, aSWR -SEE IF PRINT ERROR 
878 oO4044 O010S4 BNE ‘IF NOT: BR 
- B79 OO4046 174642 TST pEREY :SEE IF DONE HEADER 
880 o040Se2 BNE DCHKE 1 :IF SO: BR 
881 004054 016704 i74600 MOV EMADDR, R4 
882 004060 004767 900544 JSR —s- PC, TTOUT ;PRINT HEADER 
883° 004064 012767 O00001 174622 MOV #1 HDRFL :SET HEADER FLAG 
884 004072 012704 006277 DCHKE1: MOV #"5G12,R4 
_ 885 004076 005767 174614 TST PFLG ;SEE IF PRINTED DATA ERROR TAG 
B86 O04102 001004 DCHKE2 :IF SO: BR 
287 O4104 005267 174606 INC PFLG 7 
888 110 004767 14 ISR PC, TTOUT sELSE PRINT DATA ERROR TAG 
889 OO4114 D1 006313 DCHKE2: MOV #”5G13,R4 
890 004120 004767 O00S504 JSR TOUT sPRINT CHAR NUMBER TAG 
zs bowie 0167 yee MOV RENT.R3 
8 130 00476 72 JSR ;PRINT CHAR NUMBER 
893 004134 012704 006321 MOV #M$G14, R4 
894 004140 767 OO0464 JSR TTOUT ;PRINT GOOD TAG 
895 OO4144 111103 MOVB (RL). RB 
896 004146 7? 001102 JSR PC, DOUT ;PRINT GOOD CHARACTER 
897 Ooi se 12704 MOV #MSG15,R4 
898 156 767 OOO44E JSR PC. TTOUT ;PRINT BAD TAG 
899 O04162 111203 MOVE  (R2),R3 
900 904164 001064 ISR PC, bout ;PRINT BAD CHARACTER 
ao DONi7e Obie? ps . 
$02 1 167 177612 JMP DCHK1 sCONTINUE FOR ALL BYTES : 
903 004176 Oo0e40 «|. DCHKX: NOP _ & 
904 004200 005767 174506 TST DERFL ;SEE IF ANY ERROR 
805 004204 b1404 BEQ DCHKXX IF NOT: BR 
$06 o04206 174406 TST JSWR :SEE IF HALT ON ERROR 
807 OO4212 100001 BPL DCHKXX IF NOT: BR 
g08 004214 HALT 
99 216 767 001220 DCHKXX: JS PC, CKSWR TEST FOR tG 
$10 bovece oo0240 NOP 
ae dese pene ine qt BAILS GR RR rin 
te > 
ag Spee eee 1 an: sith 
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aie ;SCOPE LOOP ON ERROR SUBROUTINEx#sx4444%% 
Sib 004767 001200 SCOPE: JSR PC, CKSWR ;TEST FOR tG 
$i7 OO042e4e o00240 NOP 
918 OO04244 032777 O80000 174346 BIT #40000, JSWR ;SEE IF LOOP ON ERROR 
$13 o042S2 001001 BNE SCOPE1 | : BR 
$20 O0042S4 900207 RTS PC sELSE EXIT 
Sel O042S& O002e40 SCOPE1: NOP 
S22 004260 005726 TST (SP)+ sRESET STACK 
S23 O04ebe 000240 NOP 
S24 004264 017703 174374 MOV @LTADD,R3 
asp 0042706 900113 JMP (R3) ;LOOP ON ERROR 
ase ; TEST ITERATION SUBROUTINE **¥424244% 
Se3 o04272 000240 ITER: NOP 
930 004274 004767 001142 © JSR PC, CKSWR ; TEST FOR tG 
931 004300 032777 010000 1743lé BIT #10000, aSwR ; SEE IF ITERATIONS 
' 932 001403 BEG : BR 
933 004310 067 174372 ITERO: CLR TENT iCLEBR PIGAAT ICH COUNTER 
S34 004314 0207 TS PC 
935 004316 005267 174364 ITER1: INC ITCNT : BUMP COUNTER 
936 OO04322 026767 174360 174304 CMP ITCNT, ITAMT SEE IF DONE ALL 
937 004330 0017&7 BEQ ITERO F SO: BR 
938 04332 0057 TST (SP)+ *RESET STACK 
939 004334 017700 174326 MOV JITRLP,RO :SET ITERATION POINTER 
| ar 004340 000110 JMP (RO) :60 ITERATE 
aus ;MAG TAPE INTERRUPT HANDLER##x#424%%% 
| $44 04342 900240 MTINT: . NOP 
945 O04344 Oecbeb CMP (SP)+. (SP)+ ;RESET STACK POINTER 
{ S46 S46 04, 000100 174226 - BIC #100, aMTC : CLEAR INTERRUPT ENABLE 
| 947 004354 Onod240 NOP 
| 948 004356 o00540 NOP | 
| Pa 60 000207 RTS PC sRETURN TO CALLER 
351 sTTY INTERRUPT HANDLER¥##**4%4%% 
362 00240 TTINT: NOP 
954 004364 900240 NOP 
oss 366 000240 NOP 
SS& O04370 200002 RTI 
1 
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5 EERE EERE EAE E HERE EE REA ERE EEE EE AEE EELS ARES ER ESSE SESE 
pTTY ENTRY SUBROUTINE: 


ITHIS SUBROUTINE IS USED BY THE TEST CONDITION 
“ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
:AT THE TTY AND CHECK THEM FOR LEGALITY AND 
sLIMITS, ALL RESPONSE MUST BE aidan IN OCTAL 
(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
‘THE CALLING ROUT 
IF AN ENTRY IS ILLEGAL OR QUTSIDE THE LIMITS 
ha ESTION M MARK IS TYPED (7) AND THE RESPONSE 
‘ENTRIES MAY TERE EXCEED SIX (6) CHARACTERS AND 
:MAY BE TER NINATED AT LESS THAN SIZ BY TYPING A 
*CARRIAGE RETUR 
DEH H rHHHH HEHEHE HEEHE HEHEHE HEE 


CLR TENPI ‘  $CLEAR FIRST CHARACTER FLAG 
JSR PC, TTIN GO READ CHARACTER 
cMpB 3=sw2 15, TIB ;SEE IF CR 
BNE TTRI IF NOT: BR 
TST TEMP ; SEE IF FIRST CHARACTER 
BEQ TTRS SO: 
INP TTR2 TELSE G0 LOAD VALUE 
CMPB «#260, TIB SEE IF CHAR IS LESS THAN O 
BLOS TTRIA IF NOT: BR 
JMP TINER ELSE GO TO ERROR 
CMPB =: #270, TIB :SEE IF CHAR IS GREATER THAN 7 
BH TTRIB IF NOT: 
M TINE *ELSE GO TO ERROR 
Inc TEMP “SET FIRST CHARACTER FLAG 
ROL RO 
CLC 
ROL RO :SHIFT 3 LEFT 
CLe 
ROL RO 
BIC #177770, TIB STRIP ASCII 
BIS TIB,RO "LOAD CHARACTER 
DEC = - RL | ; SEE IF DONE 
BNE TTRO ‘IF NOT: BR 
CMP RO, Re : SEE IF EXCEEDED MAXIMUM LIMIT 
BLOS /TTR3 :IF BR 
JMP TINER PELSE GO TO ERROR 
CMP R3,RO *SEE IF BELOW MINIMUM LIMIT 
BLOS  TTRY ‘IF NOT: BR 
INP TINER ;ELSE GO 9 ERROR 
MOV RO, (RS) LOAD V 
RTS PC iF 
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1008 s; TTY ENTRY ERROR SUBROUTINE #**#*444%%% 
1011 OOYS4O 012704 006333 TINER: MOV #MSG16,R4 
1012 oo4S44 9004767 9000060 ISR PC. TTOUT :PRINT? 
1013 OO4SG 162716 oO00020 SUB #20, (SP) "RESET SP TO START OF VALUE ROUTINE 
1014 oo4s54 005207 RTS PC ‘REDO VALUE ENTRY 
1016 sTTY READ SUBROUTINE S#x#x4%#4% 
1018 oo4SS&é 005077 174042 TTIN: CLR aTKS 
1019 o04562 005077 174040 CLR aTKB 
1020 0 005087 174056 SLR IB 
1021 O04S72 005277 174026 INC aTKS 
1022 004576 105777 174022 TTINL: TSTB aTKS 
1023 004602 100375 BPL TINI 
1024 OO4E04S 017767 174016 174036 MOV aTKB, TIB 
1925 O04612 105777 1740le TTINe: TSTB aTPS 
1026 004616 100375 BPL TTIN2 
1027 OO4620 116777 174024 174004 MOVB  TIB,aTPB ? 
1028 004626 000207 RIS PC 
inet sTTY OUTPUT SUBROUTINE X##X#*222% 
1032 O04630 112467 174012 TTOUT: MOVB  (R4)+,TOB 
1033 004634 120767 O00043 174004 CMPB = s-#43,, TOB 
1034 oo4642e O01452  BEQ TEX 
1035 OO4644 122767 OOO0D4S 173774 CMPB sag’ 4S, TOB 
1036 OO46S2 001407 BEQ TCRLF 
1037 904654 122767 000041 173764 CMPB 3=s«#41, TOB 
1038 OO4%662 601443 BEQ TBELL 
1 004664 004767 O00064 JSR PC. TOG 

ic 004670 000757 BR TTOUT 

/ 1041 O04672 112767 O0001S 173746 “TCRLF: MOVB #15, T0B 

| 1042 904700 004767 000050 JSR PC, TOG 

| 1043 004704 012703 o00004 MOV 

| 1044 004710 005067 173732 TCRLFA: CLR B 

| 4104S 904714 004767 000034 JSR PC, TOG 

| JO46 720 03 DEC 

| 1047 004722 001372 NE TCRLFA :DO FILLERS 

| 1048 004724 112767 O00012 173714 MOVB #12, TOB 

| 1049 004732 004767 OO00I6 ISR PC, TOG 

| 1050 004736 105767 173766 TSTB § 

| 1051 o04742 100401 BMI 

| 1052 004744 000731 BR TTOUT 

| 1053 004746 005067 173756 1S: CLR ROSH 

| 1054 004752 O00406 BR TEX 

' 1055 004754 105777 173650 TOG: STB  aTPS 

| 1056 004760 100375 BPL TOG 

| 1057 OO04762 116777 173660 173642 MOVB § TOB,aTPB 

' 4058 0047706 000207 TEX: RTS PC 

| 1053 004772 012703 oDp0002 TBELL: MOV #2,R3 

' 1060 004776 912767 O00007 173642 TBELA: MOV #7; T0B 

3061 005004 004767 177744 JSR PC; TOG 

| 1062 005010 005303 DEC R 


_ 1063 O00501e 001371 BNE TBELA 
2064 005014 000705 BR TTOUT 


DZTSFC. SRC 
108s 
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DITSFC. SRS 

eg 

058 o0Sd16 

ds3 

070 Ces 

071 o0S032 

a) OOSO34 
OOSC3E 

O74 05042 

O75 OdO0SO%4 
oos0s0 
905054 


BESRR LORS SO SRR CE td tot 


EER ERER REM RURIRR REMMI EMR ROMER NRE 


2 2 2 + an hn bo 2 0-0 & 0 0-0 2 Bs 2 B28 2 B* 00 ho & 2 O02 Ps fs F-0 O-2 § «0 8-2 0 ph f= 6-2 6-0 h-0 0 2h -0 h-0 O- F oh pope 
& 20-6 =) 20-2 0-4 & 2 8 2+ 2 =O 2 & -2 b= H—* =< & -2 = = B+ B—2 B= & -* Ho B= 


SBIRREREB 


= 
- 
G 
- 


© : 
in 
See eae 


& 


a 


2B90 
Bes 


Ete) 
JONG 
sie 


rats} 
te 
% 


BB 


tue 
Re 


== 


Be 


oe 


COo0S1 
OCC220 


000036 


TEST MACYS1 


000226 


OCTFO: 


OCTPI: 
OCTP2: 


173444 OCTP3: 


MOV $1, 0FL 
ga OCTPE 
CLR OFL 

MOV R32, RY 
SNE octeo 
TST GFL 

BNE OcTPO 
ISR PC OCTPG! 
IMP octP3 
SIT #109000,R4 
SEQ OcTe} 
MOV 1,R4 
ISR PC’ OCTPG 
3MP octp2 
CLR RY 

JSR PC OCTPG 
MOV R3°R4 
ROR RY 

ROR R4 

ROR RY 

ROR RY 

Swag sRY 

JSR PC, OCTPG 
MOV R3,R4 
ROR RY 

SWAB 4 

JSR PC, OCTPG 
MOV R3,R4 
ROL RY 

ROL RY 

Swag SRY 

JSR PC, OCTPG 
MOV R3,R4 
ROR RY 

ROR R4 

ROR RY 

JSR PC,OCTPG 
MOV R3;R4 
JSR PC’ OCTPG 
MOV ce 40 

JSR fhe 
RTS pe’ 


ee ee ee 


;CLEAR FLAG FOR LEADING ZERO 
SEE IF NUM ag IS ZERO 

: TF _NO R 

3 SEE IF Paint ALL 0 


0; 
ELSE PRINT ZERO 
: SPACE AND Ex | 
SEE IF MSD = 
iF NCT: BR 


sPRINT 1 


sPRINT 0 


;POSITION DIGIT 


;PRINT DIGIT 2 


;PRINT DIGIT 3 


:PRINT DIGIT 4 


sPRINT DIGIT S 
;PRINT SPACE 
sEXIT 
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DZTSFC. SRC 

1110 

titt sOCTAL PRINT SUSROUTINESsseeeeeee 

1113 008210 o42e704 177770 OCTPG: BIC 8177770,R4 

1114 005214 001004 ‘ BNE OCTPGD 
| 2115 905216 005767 000030 TST OFL 

1118 O0S222 901001 SNE OcTPGO 
} 2117 005224 900207 , RTS = PC 

1118 005226 7 oc00z0 OCTPGO: INC OFL 

1:18 o0Se32 704 O00260 OCTPGI: BIS #260, 84 

1120 005236 010467 173404 Mov =- RY, TOB 

liel- OOSe42 004767 06 C; 706 

llz2-° 0052465 010304 MOV R3,R 

lles O052S0 000207 RTS . 

1124 nos2s2e o00000 OFL: oO sFIRST CHAR FLAG 
1128 sDATA CHARACTER OUTPUT SUBROUTINE *#*ssseex 
! 

' 128 05254 O0SOB7 172366 DOUT: CLR TOB 

1129 005260 012704 900010 MOV #10,R4 :SET NUMBER TO PRINT 

1130 005264 110367 173356 MOVB 3, fos 

1131 005270 105777 173334 DoUT1: TSTB TPS 
1132 005274 100375 BPL DOUTI 

1133 005276 132767 000200 173342 BITB #200.T0B 
| 113% 005304 001404 BEQ Te 
| 4135 005306 012777 000061 173316 MOV #061, aTPB 
| 1136 005314 900403 BR ourT3 
' 3137 005316 012777 OO0060 173306 DOUT2: MOV #060, 2TPB 
| 41138 006167 173316 DOUTS: ROL TOB 
/ 1139 005330 005304 DEC 
| 1140 005332 001356 DOUT1 
/ JI41 005334 000207 RTS 
' 1442 005336 016703 173314 DOUTD: MOV TEMP3,R3 
' 7143 095342 900303 SWAB OCéRRS 
/ 1144 005344 00476 JSR PC, DOUT 
/ 2145 bos 350 016 173302 MOV TEMP 
| L146 00476 JSR , DOUT 
3147 905360 RTS 
/ 1148 
| uN 
HE 

1152 005362 013746 o00006 SUSWR: MOV a#6,-(SP) ;SAVE VECTORS 

1153 bo5 266 1 37He 090004 MOV a84,-(5P) 

1154 O01 005412 co0004 MOV #1$,a8 ;SET UP FOR TIMEOUT 
| 45S OOS400 022777 177777 173212 CMP #-1, dSWR ‘REFERENCE HARDWARE SWITCH REGISTER 
| 1156 bo5406 0014 BEQ 
| Qi 1 SR 
3158 O0S412 Oe26e6 1$: CMP (SP)+, (SP)+ sADJUST STACK 
' 4159 QOS414 012767 000176 173176 2: MOV #Si : POINT TO SOF THARE SWITCH REG 
' 160 6054 ot 67 000174 173172 MOV aDISPREG DISPLAY -POINT TO SOFT DISPLAY REG 
/ Ziel o0s4 15784 000004 38: MOV (SP)+, 384 RESTORE VEE TORS” 
' 1162 005434 012637 000006 MOV (SPs, one 

1163 OOS440 Bassa? RTS PC 

ue 


lentes aannistatdaeialinnesiisaincisipajedgiearadianasniaeetinnenmueitmiegeieemanmmmtiamaeinainel 


ed ed ok ed -4@ 
0-20 -- pp +p 


on 


0-0-2 26-2 p-- 9-2 Ho 


0+ &- + bb = & = 6 9 -< 6 6 9-2 9 -< p-2 8-2 po Hw Be 
bb * b- 6 -< B+ 6-2 6-2 & = 6-2 9 9 -- B-2 2 H- 2 p+ H-0 &< H-2 H+ 9-2 HP -o He 


rurururururorururury 
0 b= b= Os Os he 
WO NOU © Wir 


Sy San UOTOG HNIC NTIS HS tN eis te etter betetetetectet ttt 


i 
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BBS URRZORK Bsa lod san So Ge 


BBEIKR LOG 


BSNS EERE S 


goose 932767 000176 173150 CKSWR: CMP BSWREG, SWR sSOFTWARE SWITCH REG PRESENT 
1041 SNE OUT *NO, GET OUT 
005452 105777 173146 TSTB = TKS VES WAIT FOR 
DO5456 100036 BPL OUT “READY, GET CHARACTER 
005460 017767 173142 173162 MOV aTKB, TIB 2QND STRIP OFF 
005466 O42767 177600 173154 BIC 8177600, TIB THE GARBAGE 
005474 922767 O00007 173146 CMP #7, TIB sIS IT A’<tG> 
005502 001024 BNE out 
O5504 bie704 00665 MOV sSCNTG, R4 
ic 767 177114 JSR PC. TTOUT 
005514 012704 00667 CNTLU: MOV #SMSWR, RY 
005520 004767 177104 JSR PC, TTOUT 
005524 017703 173070 MOV ISUR, R3 
005530 004767 177262 ISR PC, OCTPE 
005534 01 006703 MOV SSMNEW, RY 
005540 004767 177064 JSR «PC, TTOUT 
005544 005037 000726 CLR — aatEMPsT 
004767 900002 ISR PC, SREAD :GO READ A LINE 
095554 900207 OUT: RTS PC ‘RETURN TO MAIN BODY OF PROGRAM 
005067 173144 SREAD: CLR TEMPST 
005562 012767 O00007 173134 MOV 87, COUNT 
004767 176762 18: ISR N :GO READ A CHARACTER 
005574 042767 177600 173046 BIC #177600, TIB :STRIP OFF GARBAGE 
005602 120767 O00025 173040 CMPB 43s«#2S,, TIB :IS IT A tu? 
005610 001902 BNE 118 *BRANCH IF NOT 
005612 005726 38: TST (SP)+ *POP THE STACK 
005614 37 BR CNTLU START OVER 
905616 7? 000012 173024 118: CMPB  #12,TIB "IS IT A <LF>? 
005624 001016 BNE 2$ “BRANCH IF NOT 
005626 7? 172214 TST 46 *TEST FOR ACT-11 HOOKS 
005632 001406 BEQ 10$ ?NO HOOKS-<LF> WAS MISTAKE 
005634 005726 TST (SP)+ ‘POP THE ST 
005636 016716 172204 MOV 4B, (SP) :MAKE ACT=11 ADDRESS 
O0S642 062716 O00010 ADD #10, (SP) 
005646 o00742 BR U :GO TO THAT ADDRESS 
005650 012704 006713 10$: MOV SSNOACT,RY ‘LET OPR KNOW IT 
005654 767 176750 JSR PC, TTOUt "AND RETURN 
005660 000754 BR FOR ANOTHER TRY 
005662 122767 OO001S 172760 28: CMPB sé, TIB "1S IT A «CR? 
005670 001013 BNE 4§ :BRANCH IF NOT 
os672 012767 173030 MOV #200, ROSW 
004767 176766 JSR PC, TCRLF sECHO IT WITH <LF> 
005704 022767 173012 CMP 87’ COUNT *WAS IT FIRST CHARACTER 
005712 001037 BNE 7$ “CHANGE SWR IF NOT FIRST ONE 
005714 005726 QS: TST (SP)+ :POP THE STACK 
bos? 16 000716 BR OUT GET OUT 
122767 OO0060 172722 4S: CMPB #60, TIB 
bo=7e8 003004 BGT 
122767 000067 172712 CMPB =s«&67, TIB 
05736 003005 BGT 
012704 006765 S$: MOV #SQUEST,RY 
005744 004767 176660 JSR PC, TTOut 
bp5750 po07e0 BR ;START OVER IF NOT LEGAL CHARACTER 
7 172750 b$: ASL MPST 
1 005756 006367 172744 ASL TEMPST 


em ee ee ee 


Ce mm nm me ee ee em te te ee es ee ee ee 
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| DZTSFE. SRE 

| 3222 OOS762 O0E3E7 172740 ASL Ss TEMPST 

| 1383 Qos? 6 142767 OO006O0 172654 BICB 4=s_«aw60, TIB :GET NITTY-GRITTY 

ee IS6767 172650 172724 BISB =: TIB' TEMPST 

| lees 7? 172716 DEC COUNT -ONLY WANT & DIGITS 

Hes Be eR : 

| $338 OOBO012 916777 172710 172600 7%: MOV TEMPST, OSHR SCHANGE SWITCH REGISTER CONTENTS 


me ee a a + ee en + ee ee. 
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1230 MESSAGE TABLE sexaetanee 





ae 232 OO8022 O2244S 051524 O31460 MSGI: .ASCII /%xTSO3 INSTRUCTION TEST (DZ2TSF-B)#/ 
1233 006030 O44440 51516 051124 
1234 008036 041525 094524 047117 
1235 006044 051505 201 
1236 Oob0s2 g¥e0s0 052132 O43123 
1237 1055 021451 
1238 006064 O42445 052116 OS110S MSG2:  .ASCII /“ENTER UNIT NUMBER: 9” 
1239 006078 OS2440 gyHel 020124 
1240 006100 05251 1115 o5115s 
1241 006106 O214 2 
le42 006110 O22e44S o42441 042116 MSG3: ASCII /%%!END OF PASS: #/ 
1243 006116 O4744G Oed106 O4dS2 
1244 906124 051523 020072 043 
| 1245 006131 B45 Oe0441 MSG4:  .ASCII /%!!REWIND ERROR: NO BOT#/ 
1246 006136 044527 Ovel16 o42e440 
| 1247 006144 OSll22 05111 
| 4348 O061S2 O47516 941 052117 
1249 006160 043 
1250 006161 O45 OS2115 035123 MSGS: .ASCII /uMTS: a 
1251 006166 021440 
1252 006170 O4644S 041524 O20072 MSGb: ASCII /“MTC: # 
1253 006176 043 
| 1254 006177 O45 oOS2115 O41502 MSG7: .ASCII /“MTBC: #/ 
1255 06204 020972 043 
1256 906207 O45 OS2115 O40S03 MSG8: .ASCII /“MTCA: #/ 
' 1257 006214 020072 043 
1258 906217 O4S O20441 O40SO2 MSG3: ASCII /%!!BACKSPACE ERRORS 
' 12959 006224 o4sso3 050123 O41501 
1260 O062e32 020105 051105 047522 
| 1261 006240 021522 
' [pee O06242 pets 047041 052117 MSGIO: .ASCII /%!!NOT READY#/ 
1263 006250 051 o4osoS os54S04 
| 1264 006256 043 
| 1265 006257 O4S O2O441 O47516 MSGII: .ASCII /%!!NO INTERRUPT#/ 
1266 006264 O44440 052116 051105 
1267 006272 OS2S22 052120 3 
1268 006277 045 MSG12: .ASCII /“DATA ERROR#/ 
| 7269 006304 o4e440 OSll2e2e OS1117 
1270 O063ie2 043 
1271 006313 O45 047103 O20072 MSG13: .ASCII /XCN: #/ 
1272 006320 043 
| 1273 006321 O45 035107 O2144O MSG14: .ASCII /%G: #7 
1274 006326 oO4104S 020072 O43 MSGIS: {ASCII /%B: 
1275 Dobs33 077 043 MSGib: .ASCII /?87 
| 1276 051127 OS2111 MSG17: .ASCII /“WRITE ERROR#/ 
1277, OOB342 O20105 OS1105 047522 
| 3278 006350 021522 
| 00635 lice rae MSGI8: .ASCII /“READ ERRORS 
N06 366 bite lf 5 MSG19: .ASCII /“NO OPI IN 10.5 FEET#/ 
1282 006374 O20111 047111 O30440 
1283 027060 042506 
1284 006410 052105 


O20111 MSG20: .ASCII /ZOPI WITHIN 4.0 FEET#/ 


5 
: 
2 
z 








tee em ee ee eee 
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DZTSFC.SR 


1286 O064e0 O44Se7 O4412e4 47111 
1287 O064e6 032040 030056 043040 
1288 006434 O4e50S 021524 
1289 Rae eta Rares OS21i7 MSG2i: .ASCII 7 !!NOT AVAILABLEs/ 
1 446 0526 


aes 046111 
1e91 OO06454 1101 Q42514 043 
1 006461 OYS O42Se2 O44SO7 MSG22: .ASCII /“REGISTER START: #/ 
74 Deeize Oed072 


a MSG23: .ASCII /x“VECTOR: #7 


a 
2 
ae 
3 
é 
R 


ny 
# 
F 
a 


; TEST HEADERS&##44s RHxe | 
006515 OWS OS204S 9051505 LTIMSG: .ASCII /%“TEST 1: WRITE FROM ODD BYTEs/ 


OS1S0S LT2MSG: .ASCII /%xTEST 2: READ TO OOD BYTEs, 


Pins iiniistee tate tata 


OOS606 O2ee445 042524 OS2l23 LT3MSG: .ASCII /x“TEST 3: OPI TOC LONG#/ 


1505S LT4MSG: .ASCII /%X“TEST 4: OPI TOO SHORTs/ 


OO 0 0 
un 

Z 

2 

a 

-_ 

oO 

a 

Tu 

mun) 


WWII GIGIWIWUI GIG) 
WONT CWO 


z 
w& 


043536 O43 SCNTG: .ASCII /%tGe/ 
SMSWR: .ASCII /%4!E!SSWR= #/ 


3 
Ba 


bs Bs = bo 2 Ob = + bs be = he = = 0 0 Bb 0-2 = bs 2 Oh 0 2 2 2 0 hh eh 8h 2h Ve ee 
es 
x 
La) 


320 
321 
322 
| 1323 
| 1354 0066 
| 1325 006 040 047040 OS3505 SMNEW: .ASCII / NEW= #/ 
1328 906710 cenb7s ous 
! 006713 _ O45 O47045 020117 SNOACT: .ASCII /%“NO ACT-11 HOOKS <LF> sINVALID --RETRY%«e/ 
“TRB OOb7eD osSOT DeEsey 03046) 
| 1329 006725 O44040 047517 051513 
1330 006734 036040 043114 
| 1331 o06742 O44475 053116 046101 
332 006750 O42111 26440 051055 
333 006756 Ose105 OsYsze O2eHis 
Sse Doeves §«©=— BME 022477 OBLYYS SQUEST: .ASCIT “rue 
236 “EVEN 
338 006772 177777 WDATA: - 
333 007074 =. +100 
240 907074 990000 RDATA: 
341 000001 END 





ne EEE 
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OsTerecsRe CROSS REFERENCE TABLE -- USER SYMBOLS 








QDR pone c8 77e = SS $70 60: 615 644 656% 689% 701# 782 820 8S7 
CNT r 78 
003174 563 608 650 695 7498 
BKSP1 003220 7S3e 754 
exits ON aces Ss7e 468718) «=6602e )=—s 16% )8=—s Se 0S 657e#)0=—s 90a = 70ee = °B3 818 ess 
CKSWR  O005442 507 S32 743 779 806 862 903 916 930 11568 
CNTLU 005514 468 11768 =1193 
COUNT 000724 3888 1187% 1209 1225+ 
CRONT 000710 38e8 867% 870 | 
DCHK 003776 $79 624 866% 
DC 004026 869 875% 
DCHKE1 004072 880 g84s 
004114 886 8894 
DCHKX 004176 874 878 9038 
004216 905 3 909% 
DCHKO §  O04004 8688 873 
DCHK1  O04010 8708 
DERFL 900712 3838 876% 904 912% 
DISPLA 000622 sSe# 1160% 
DISPRE 000174 sel# 1160 
DOUT  O0SeS4 896 900° lle8s 1144 1146 
DOUTD 005336 11428 
DOUT1 005270 11318 1132 1140 
DOUTe 005316 1134 11378 
DOUT3  O00S324 1136 11388 
EMADDR O00660 3708) 486s 46% 486592 )=—ss Oe )=—ss8S* = 728 772 733 832 881 
ERCHK 003510 S61 $75 606 620 648 693 706 757 8les 
ERCHK1 903S22 813 8158 
ERCHKe 003534 816 8188 
ERCHK3 003556 822 824s 
ERPT 003566 665 814 817 B25 827% 
ERPTX 003756 829 850 8598 
ERPTXX 003766 860 8628 
ERPT1 003622 831 8358 
ERRAD poo be 3718 Bea" S7ee 605% 619% 647% 659% 691% 704% 835 
EXEC 559 57 603 617 646 660 692 705 748 
EXECX 03470 736 8038 
EXECKX 003500 804 806 
EXECO 003264 7o68 86769 
EXEC] 003316 1 7748 
EXECe 003236 7 777 7798 
EXECS 003420 7918 792 
EXEC4 8018 
FUN 3808 S55* S69 600% 614% 643% 658% 688% 703% 
HDORFL 000714 3848 = SOl*® = 777 7397 830 834% 879 883% 
ITAMT 3576 «€=6pES*®)=—s «70% = 709% )= ss 711® = (9388 
ITCNT 000706 3818 923% 935% 
ITER  O0427e 0 625 669 710 929% 
irene 004310 9338 8§=©6937 
TER]  OQO04316 9358 
ITRLP OO0666 37380 4496) = s497%# = Seek = See = 939 
LTADD OQ00664 s7ee  494H# = s449S# = «44986 498 .- S02 Se0® Sel# See 
'LT1 001702 396 397. S458 
‘LTIB =: 001724 S508 553 
/LT1C =: 001776 560% 


+ 


nee enn a ee eS 
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c 


DOZTSFC.SR CROSS REFERENCE TASLE -- USER SYMBOL 

LT1D 002026 S668 568 

LT1E 002072 S748 

LTIMSG 006515 S46 13018 

LTe 002130 298 239 Sols 

LT2B 002146 cosa $98 

LTec pescis 604 

LTeD 6118 3 

LT2e 002306 6188 

LTeMSG 006553 S32 13078 

LT3 002352 400 6398 

LT3A 002372 6438 652 

LT 002420 6478 

LT3¢ 002520 &S18 

LTSIT  O024S0 401 £53 

LT3MSG OO6606 640 l3les 

LT3X 002556 boy 6688 

LT4 002602 6848 

LT4A 002622 688s 697 

LT48 002656 6938 

LT4C 002750 7068 

LT4IT 002700 403 6988 

LTYMSG O06635 685 13168 

MSGI 006022 418 12328 

MSGIO0 006242 774 lebes 

MSG11 801 126S8 

MSGle 006277 884 12688 

MSG13 006313 ec9 12718 

MSG14 006321 893 12738 

MSG1S 906326 897 12748 

reels 006333 1011 12758 

MSGI 006335 css 605 647 691 12768 

MSG18 006352 S72 619 12798 

MSG19 OD6366 6s3 128138 

MSGe DO&064 3 12388 

MSG20 06413 704 12858 

MSG21 O06440 473 12898 

MSGe2e O06461 12928 

MSG2e3 O06 429 12968 

MSG3 006110 le42s 

MSGY 006131 730 12458 

MSGS 006161 732 837 12508 

MSG6 006170 736 B41 12528 

MSG7 006177 B4S ics4s 

MSGS 006207 851 1256 

mMSG93 006217 756 12588 

MTBA 000606 3468 

NTBC 000604 3458 751% 783% 815 847 

MTC 000602 3448 aero 464s 478% 71&% 719% 720 738 750% 752% 766 791% 786% 
812 ag 946% 

MTINT O04342 7 4 344g 

MTS 3438 oe 469 663 717 722 724 734 753 839 
423 432 4ss 52 BY eos 858 892 10708 

OCTPE QO0SOl1E 3 733 840 She 10688 1179 

OCTPE! 0050 1069 10718 

. 00521 1080 1083 1090 1094 1099 1104 1106 11138 

OCTPGO OCSe26 1114 1116 11188 
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DZTSFC.SRC CROSS REFERENCE TABLE -- USER SYMBOLS 


QcTPG1 O0Se 1975 11198 
TPO § 905054 107e 1074 10778 
005076 
005104 
74 1976 11078 
pORERS ivegt 1070% 1073 1115 1116% 1124s 
OUT OSSS4 116 1169 1173 11848 =1201 ele 
PC =%000007 498 41S* 419% Yel 423% 428% 430% 432% 437% 4SO# 


* ox 6* 6s 900% 
916% 920% 930% 934% 949% 977% 1007% 1012% 1014* 1028% 1039 
1049 1058% 1061% 1075 1080% 1083% 1090% 1094* 1099% 1104* 11 
1117* llel*® JLlege Li4le® L144e Lisee 1147% 1163% 1175*% 1177% 1179% 





OR aR 2RERRR 
| ddd 
aS 
—o 
Bs 
$2 


PCNTR 3768 Behe S27 533% 
PFLG 000716 385% ess 887% Sll# 
Pp 000816 350% “413% 785% 
NT 000612 3488 
RDATA 007074 Sh4 «$70 577 609 615 622 ess 701 13408 
RDSW 600730 3308 1050 10S3* 1207% 
REGS 40 3538 4e2 a2 43 
RWND 10 coy 539 S42 ees cos 699 7158 
RWNDX 003154 727 7408 
RWNDXX 003164 718 741 7438 
RWND 1 a4 7ee8 723 
Ro = See 327% 331% 416 438% 439% 440% 443% SGM ote Hoos 471% 
yore 490% 491% 492 S02« 3 510% Silx Sle 515 518% 519# 
549% 550 cSl* SS2 S&S# 567% 578% So4x S95 596% 597 610% 
g: Bene eas Bee 687% oSb+ 872% 939% 976% 991# 993% 99st 
Ri =”%000001 438 ase mS mal 44ne 457% Srbs 621% 784% 785% 786 790% 
Re =%000602 44g obs 435% Yaoe Yule Yole 479% 481* S47% S4gs SSO# S643: 
577% 593% c55+ 609% 611% 622% 868 87 839 1000 
R3 =%000003 4ox 422% 427% 431% 436% 4Sox 457% EUs 459% 527% 734% 738% 
819% 820% 839% 843% 847% 853% 8SS% 655% 857% 891% 895% 
dt 3 1043% 046% 1059* 1062 1071 1084 1091 1095 1100 
lle2 1142ee 1143% 1L14S* 1178% 
as =7900004 418% 4o0e uoGe 4454 473% 525% 728% 730% 732% 736% 772% 
799% 801% t 835% 837% B41# 845% 851% 881% 884% 889% 893% 
1011# 0 1071# 0 10795% 082% 1084* #1085* 1086% 1087% #1088* 1089% 
032 1093% 1096 1097% 1098 1100% 1101% 1102% 1103% 1105* 1lil3s 
1120 lige 1129% 1139% 1174 1176% 1180% le0ex 1217% 
=%000005 47% 4YO4s 433% 4S6# 765% 768%  1006% 
| SCNT 000702 3738 S6e% 607% 649% 694% 751 
| SCOPE O04236 B63 S168 
| SCOPE] OO042S6 919 Sels 
| SP =%000006 488 414% 322 938 94S 1013% 1152 1153* 1158 1161 1162 1192 
1199 1200% ile2il 
, SPFLG 000670 3748 665% 667% 755% 758% 821 oNS 


STALL 000626 3 655% 
START © 001000 328 0=(332—Stsi«C dD 


8 te ee ee ee 
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DZTSFC. SRC CROGS REFERENCE TABLE -- USER SYMBOL 
STFLG 000872 3754 489e = 50814 
STscD 001568 493° S148 
sT 001214 4499 475 
STOA ~=—-001174 wude = «447 
511 12 We? ER 472 
513. «001364 4704768 
st4 = 001372 W127 778 
STs, bolle 4uBle 493 
SUSWR © 005362 41511528 
SWR = 0006 3Sie «6 468—“(<i‘é Sz ©8OCSOYCCS10—sisisS29s—i7“_CC(<eOC(<ité‘aHOC798S—sisa—C(éséiPSCCSQ 
877 908 «Sis Ss3] 1185) t1S9* «116 = 1178S «122 
SWREG 000176 3eou 45s 591186 
TBELA 004776 10608 1063 
TBELL 004772 1038 10598 
TCRLF O04672 1036 104ie 1209 
TCRLFA 904710 10448 1047 
TEMPST 000726 389% 1i8ee 1186+ 1220% 12218 122% 1224* 1228 
TEMP] © 000652 3678 «0 78S* «= 793% «975% = 980 989% 
TEMP 000654 3688 
TEMP3 000656 3698 «456 GIR «= 453——s1H2 LYS 
TEND 001634 S000 S16 Ss S28 : 
TENOX OO1666 530-5328 
TEX 004770 1034 =61054 = «1058 
TIB —- OQUESD 3658 978 «= 983—iG_Ci‘(<‘éia «OF «HR «1027 )=Ss70e «L71# «11721189 
} 1190 «1194 = 12051213, 1BiS = 1223 = 1224 
| TINER O04S4O ge $88 «= 1002s«1005 Ss IDs 
| TINF 00644 3648 
|1KB = ODDE26 3548 1019 1024 1170 
‘TKS = 00624 3538 i018 1021* 1022 1168 
iy ooce46 3658 379 1032% 1033 1035 1037 1041 1044" 104% 1057 060% 1107* 1120% 
1128 1130% 1133 1138% 
/TOG = 04754 1039 «1042 «= 1045. 1049 = 10sS# §=«1056 «= s10BL S108 = 1121 
/TPB =: 000632 3568 1027* 1057" 1135" 1137% 
TPS = 0006 3558 1020 1055 1131 
/Tstp.) §=— 001424 ube «= S13.—sS34 
| TScDO 901454 ygse = 509 
T5CD1 © o01510 uso EDia = S24 
'T5cb2 001522 code 581i 486 be iLsC'B 
TSCD3 «001534 505 S078 
'TSTTBL 000732 - 3948 «494 S20 
| TTIN. . 004556 977 1018 1188 
TTINT 362 314 9538 
TTINI 004576 10228 1023 
TTIN2 O04612 10258 1026 
TTOUT  O04630 ug Yel HDHD ghee 80 
| goes g3 835 638 e842 846 852 882 888 890 894 898 1012 
10328 1040 1052 1064 1175 1177 1181 1203 © 1218 
TTR 004372 4e8 437 48 (its 
TTRO © 004400 9778 ©6989 
TTR1  OO4426 979 «9838 
/TTRIA O0444e 984 9864 
TTRIB 987 9898 
TTRe } 004514 982 10008 
TTR3 §=©— 0045 100: 1003s 
TTRY © OO4E34 10C4 10068 
TRE = 04 981 10078 
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DZTSFC.SRC CROSS REFERENCE TABLE -- USER SYMBOLS 


000736 336% 
T1IAO §=©—000740 337% 
Te 009742 2988 
TeIAD § O00744 399% 
T3 0007' 4008 
T3IAD 000750 4018 
T4 000 40e8 
THIAD 000754 403% 
UDES 000610 347% 451% 452 462% 463% 464 476% 
000720 3868 
VECT 000842 3608 431 433 438 
WORTA 06772 547 556 576 $93 691 621 644 
SCNTG OQO65E5 1174 13228 
SMNEW 006703 1180 13258 
005671 1176 1323% 
$NOACT 9006713 le02 13278 
| SQUEST 006765 1217 13358 
SRESD = S0S555 1183 11868 
} = 097075 S38 S4 Sé 58 60 be 64 
78 80 82 84 86 88 30 
104 106 106 119 lle 114 116 
130 132 134 136 138 140 142 
156 158 160 162 164 166 168 
182 i84 186 188 190 192 194 
208 210 eie 214 el6 218 220 
e34 e36 238 240 e4e 244 246 
260 ebe 264 266 268 270 272 
286 288 230 ese 4 296 


8 29 238 
3208 326% 330% 336% 340% 4068 13398 
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| DZTSFC. SRC RROSS REFERENCE eho. E -- Maced fa 
: COMMEN 1s 
| ENDCOM it 
ESCAPE 18 
| GETPRI 1s 
| GET le 
MULT it 
[NEWTST = 
it 
SH is 
REPORT le 
SETPRI 18 
SETUP is 
SKIP 18 
SLASH 18 
| STARS 18 
i Su le 
| TYPBIN le 
| TYPDEC 18 
8 
| TYPNUM 18 » 
TYPOCS ie 
TYPOCT 18 
YPTXT is 
| $SESCA 18 
SNEWT le 
$SSKIP ls 
-EQUAT 18 
HEADE 18 
KT11 lt 
| . SETUP ls 
| /SWRHI 18 
| .SACTI is 
*SAPTB 1% 
SAPTH 18 
- TY 1% 
| :SASTA lt 
SCATC is 
“SCMTA 18 
2D 18 
| [$0820 vs 
-SDIV it 
*SEOP 18 
* SERRO ts 
*SERRT 1s 
T is 
’ SPOWE 18 
SRAND 1s 
SRDOC 1t 
SREAD lt 
$ROAZ 18 
SSAVE ‘s 
$5820 lt 
$5820 1% 
SSCOP lt 


ne ne a ee en one ee ee ce Oe ee ee eee. 
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DZTSFC. SRC CROSS REFERENCE TASLE -- MACRO NAMES 


owas eee oe 


SSUPR le 
STRAP ag 
STYPB 18 
$TYPD ls 

TYPE 1s 
$TYPO le 
SHCA sd 
1170 ne 


eS te ee ee ne a en en a ee ee 


a 
a 





TSC3 SUPPLEMENTAL INS 

| DITSFC. SRO cS0ss 

S20 445 495 

aSu 1220 i221 

- BEG 505 505 

1134 1155 

| BGT 1214 1218 
| et = 

Btk 454 462 

, B78 l2e3 ra 

Bis 463 476 
BIS8 lee4 

SIT 469 554 
1077 
5178 1133 

| Se 516 - 

; BLOS 3o4 106i 
| SMZ 1051 

| BNE 417 447 

' 637 718 

ets 872 

11671173 

SPL 7el 741 

| BR 475 524 
am 1223 

| CLC 517 gsc 

; CLR se? 4S! 

$1] Sie 

| CMP 465 515 

_ CMPE Sts 871 

| DEC 4 247] 
et lz25 

LT 5 57 

BS 8&7 

115 117 

146 147 

175 177 

295 207 

e3$ 237 

265 267 

ess 297 

| INC £33 5S1 

IMP 38 332 

S40 $82 

. ISR 415 419 

526 S32 

620 624 

£39 705 

800 e0e 

62 688 

1045 1049 

1175 1177 

MOV 331 413 

436 438 

464 473 

SHE 547 

577 578 

619 621 


OO rr oe ore ae 8s eee ee 


o- o- 


a 


PSLE -- 


2ON TEST 
FENCE 
497 S21 
222 
$13 7 
13? lécé 
461 $11 
718 7S2 
S23 £63 
004 
467 870 
725 727 
878 £80 
19] 1195 
777 804 
040 1052 
932 $34 
4ES 481 
933 975 
sS2 597 
$78 983 
“SS 567 
53 6} 
: Bg 91 
118 lel 
14s 1S] 
179 181 
592 ell 
33 241 
- 269 e7l 
239 301 
S96 . 834 
500 503 
3es 988 
cey ce 
pee Ea 
706 710 
BR 
Bel «1078 
179 1181 
414 418 
439 GY 
478 47 
css 15) 
532 593 
b22 623 


MaACYLI1 
PERMENE 


$23 
74 


946 
78S 


71? 


PEt Inia tao 


oOnow 
m™ 


7(722) 
NT SYMS 


820 
B1é 


t 


996 
786 
722 


© 


3-NO 


1206 
305 


1171 


1119 
7eé 


ee ee ee ee eee 
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MODOVUINMIOOWON 
bb dhe (IG 


- 
£& NOoururnu——-— 


- 
fro 


981 


1os4 


e326 
www 


1578 


ee te ee eee 
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DZTSFC. SRC CROSS REFERENCE TASLE -- PERMANENT SYMBO 
£593 662 565 668 670 685 
703 704 708 709 7il 716 
758 T7e 774 781 782 783 
841 843 fat 847 eS) 853 
Sis $33 1006 1011 1024 1043 
1195 1107 1120 lige 1129 1135 
1162 1170 1174 1176 117 1120 

MOVE S48 550 sos 3s s33 1027 

NEG B1S 6 

NOP 4le 477 488 S45 560 S74 
715 TS4 Tss 759 Tes 780 
S21 S23 ted 947 948 

ROL 518 513 $31 $33 93s 1096 

ROR 108s 1086 1087 1088 1092 1101 

RTI Ssé 

RTS 745 823 826 913 
1123 1141 1147 1183 1184 

Sus 1013 

Swa8 453 461 10893 1033 1098 1143 

TST 416 492 498 508 Sie 
es3 879 885 904 S06 S22 

ye ? 1022 1025 1050 10€5 1131 

-ASCII 1232 1232 2 Leys 0 lese2 
1275 le?’ 1279 1281 128s 1289 
1327 1 

- ENABL 1 

-END 1343 

EVEN 1336 

-LIST } 

-NLIST i 

REPT 1) c4 

- TITLE 13 


ERRORS DETECTED: 0 


| DEFAULT GLOBALS GENERATED: 0 


i #9 
| RUN-T1 


ZTSFC. SEG/SOL/CRF /PAGNUM/NL: TOC=SYSMAC.CO,DZTSFC. SRC 
ME: 23 26 2 SECONDS 
RUN-TIME RATIO: 146/55=2.6 
CORE USED: 35K (69 PAGES) 
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